home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tpapi1.zip
/
NWFSSERV.PA1
< prev
next >
Wrap
Text File
|
1991-12-04
|
7KB
|
130 lines
{!R! FONT 15; FTMD 15; EXIT;}
{***************************************************************************}
{** Program : NWFFSERV **}
{***************************************************************************}
{** Version : 1.0b ** Started : 11/11/91 ** ENDed : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : FILESERVER **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** **}
{** **}
{** **}
{** **}
{** This code is (c) 1991 Tony Covelli, **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
UNIT NWFSSERV;
INTERFACE
USES
netware, nwvar;
TYPE
pFileServerOBJ = ^FileServerOBJ;
FileServerOBJ = object (NetwareOBJ)
constructor Init;
FUNCTION CheckConsolePrivileges : WORD;
FUNCTION CheckNetwareVersion (MinimumVersion, MinimumSubVersion, MinimumRevision,
MinimumSFT, MinimumTTS : WORD) : WORD;
FUNCTION ClearConnectionNumber (ConnectionNumber : WORD) : WORD;
FUNCTION DisableFileServerLogin : WORD;
FUNCTION DisableTransactionTracking : WORD;
FUNCTION DownFileServer (ForceFlag : WORD) : WORD;
FUNCTION EnableFileServerLogin : WORD;
FUNCTION EnableTransactionTracking : WORD;
FUNCTION GetBinderyObjectDiskSpaceLeft (ConnectionID : WORD; ObjectID : OT_BinderyID;
VAR SystemElapsedTime, UnusedDiskBlocks : LONGINT;
VAR RestrictionEnforced : WORD) : WORD;
FUNCTION GetConnectionsOpenFiles (ConnectionID, ConnectionNumber : WORD;
VAR LastRecord, LastTask : WORD; StructSize : WORD;
VAR OpenFiles : Conn_Open_Files) : WORD;
FUNCTION GetConnectionsSemaphores (ConnectionID, ConnectionNumber : WORD;
VAR LastRecord, LastTask : WORD; StructSize : WORD;
VAR OpenSemaphores : Conn_Semaphore ) : WORD;
FUNCTION GetDiskCacheStats (ConnectionID, StructSize : WORD;
VAR CacheStats : Disk_Cache_Stats) : WORD;
FUNCTION GetDiskChannelStats (ConnectionID, ChannelNumber, StructSize : WORD;
VAR ChannelStats : Disk_Channel_Stats) : WORD;
FUNCTION GetDiskUtilization (ObjectID : OT_BinderyID; VolumeNumber : BYTE;
VAR UsedDirectories, UsedFiles, UsedBlocks : LONGINT) : WORD;
FUNCTION GetDriveMappingTable (ConnectionID, StructSize : WORD;
VAR DriveMappingTable : Drive_Map_Table) : WORD;
FUNCTION GetFileServerDateAndTime (VAR DateAndTime : Byte7ArrayType) : WORD;
FUNCTION GetFileServerDescriptionStrings (VAR CompanyName, Revision : String80Type;
VAR RevisionDate : String24Type;
VAR CopyrightNotice : String255Type) : WORD;
FUNCTION GetFileServerLANIOStats (ConnectionID, StructSize : WORD;
VAR ServerLANIOStats : Server_Lan_IO) : WORD;
FUNCTION GetFileServerLoginStatus (VAR LoginEnabledFlag : WORD) : WORD;
FUNCTION GetFileServerMiscInformation (ConnectionID, StructSize : WORD;
VAR MiscInfo : Server_Misc_Info) : WORD;
PROCEDURE GetFileServerName (ConnectionID : WORD; VAR FileServerName : ObjectNameType);
FUNCTION GetFileSystemStatistics (ConnectionID, StructSize : WORD;
VAR FileSystemStats : File_Sys_Stats) : WORD;
FUNCTION GetLANDriverConfigInfo (ConnectionID : WORD; LANBoardNumber : BYTE; StructSize : WORD;
VAR LANDriverConfig : LAN_Config) : WORD;
FUNCTION GetPathFromDirectoryEntry (ConnectionID : WORD; VolumeNumber : BYTE; DirectoryEntry : WORD;
VAR DirectoryPath : PathNameType) : WORD;
FUNCTION GetPhysicalDiskStats (ConnectionID : WORD; PhysicalDiskNumber : BYTE; StructSize : WORD;
VAR PhysicalDiskStats : Phys_Disk_Stats;
VAR DriveDefinition : String64Type) : WORD;
FUNCTION GetServerInformation (VAR FileServerInformation : File_Serv_Info) : WORD;
FUNCTION SendConsoleBroadcast (Message : BroadcastMessageType; ConnectionCount : WORD;
ConnectionList : ConnectionListType) : WORD;
FUNCTION SetFileServerDateAndTime (Year, Month, Day, Hour, Minute, Second : WORD) : WORD;
destructor Done; virtual;
END;